home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
G-Games
/
(c)ge.d64
/
crazy bomber.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
7KB
|
207 lines
4 REM *********************************
5 REM * MODIFIED EVERY SO SLIGHTLY AT *
6 REM * 1419H ON APRIL THE 3RD, 1985 *
7 REM * BY *
8 REM * DAVID BRADLEY *
9 REM *********************************
10 POKE53280,0:POKE53281,7
50 PRINT"[147]MODIFIED FOR THE C-64 BY RAVI PALEPU."
60 FORXF=1TO1500:NEXT
100 POKE59468,12:POKE59409,52:P$=" >>>>[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]<<<<"
101 PRINT"[147][144]"P$
102 PRINT" >>>> THE CRAZY BOMBER <<<<"
104 PRINTP$
120 PRINT" THIS IS A GAME OF SKILL TO SEE HOW WELLYOU CAN FLY A ";
130 PRINT"BOMBER. YOU ARE GIVEN TWENTY FLY-BYS TO DROP BOMBS TO HIT[160]";
140 PRINT" TARGETS BELOW. YOU CAN ONLY MISS THE TARGET ";
150 PRINT"THREE TIMES. AFTER TWENTY FLY- BYS OR THREE MISSES THE GAME IS[160]";
160 PRINT"OVER. MAKE EVERY[146] BOMB COUNT!"
175 PRINT"PUSH THE '*' BUTTON TO DROP EACH BOMB."
176 PRINT"YOU GET UP TO TWO BOMBS PER FLY-BY."
180 PRINT"PRESS[160]ANY KEY TO PLAY. GOOD LUCK!!":POKE59409,60
190 GET Q$:IFQ$=""THEN190
200 G=59468:X=G-59:POKEG,12:POKEX,52:PRINT"[147]"
201 PRINT"WHICH SKILL LEVEL DO YOU WISH TO PLAY? (1=EASY 2=HARD)":POKEX,60
202 GETA$:IF A$=""THEN202
204 A=VAL(A$):IFA<3ANDA>0THEN208
206 PRINT" ANSWER 1 OR 2.":FORI=1TO1000:NEXT:GOTO200
208 POKE53281,0:PRINT"[147]":POKE53281,7:POKEG,12
209 Z$="[157][157][157][157][157][157]":F$="":Y2$="[166][166][166][166][166][166]":B5$=" ":IFA=2GOTO7000
220 POKEX,52:PRINTF$F$"[146][166]1[146]"B5$" 1[146][166]11[146]"B5$" 1[146][166]";
230 PRINT"[146][166]2[146]"B5$" 12[146][166]22[146]"B5$" 12[146][166]";
240 PRINT"[146][166]31[146]"B5$" 23[146][166][166]31[146]"B5$" 23[146][166]";
250 PRINT"[146][166]421[146]"B5$" 34[146][166][166][166]21[146]"B5$" 134[146][166]";
260 PRINT"[146][166][166]321[146]"B5$" 145[146][166][166][166][166]21[146] 124[146][166][166]";
270 PRINT"[146][166][166]43211111[146] 1111256[146][166][166][166][166]3211111[146] 1235[146][166][166]";
280 PRINT"[146][166][166][166][166][166]2222211[146] 2222[146]"Y2$"[166][166]3222221[146] 12[146][166][166][166][166][166]";
290 PRINT"[146]"Y2$"333322133[146]"Y2$Y2$"[166]333212[146]"Y2$;
300 PRINT"[146]"Y2$Y2$Y2$Y2$Y2$Y2$"[166][166][166][166]";
310 PRINT"[146][166][166][166][166] SCORE= 0 [166][166][166][166] MISSES LEFT= 3 [166][166][166][166][166]":POKEX,60:PRINT""
320 N=0:H=0:GE=0:DIMV(5),BH(5),HT(5):R=1729:S=R+1:T=S+1:U=R-39:W=1050:TR=500
410 FORC=1TO20:IFGE<>0THEN3000
413 H=0:BH(1)=0:BH(2)=0:D=INT(RND(1)*5+1)
414 ONDGOTO415,416,417,418,419
415 D$="":GOTO420
416 D$="":GOTO420
417 D$="":GOTO420
418 D$=""+F$:GOTO420
419 D$=""+F$
420 IFINT(C/2)=(C/2)THENE=39:GOTO450
430 E=41
450 IFE=39THEN600
460 FORL=1TO47:IFL>40THEN490
472 ONLGOTO481,482,483,484,485,486,487,488
480 PRINTD$TAB(L-8);" [223][223][146] .[208][207][221]"Z$"[157] [184][184][185] [166][146][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO590
481 PRINTD$"[221][157][179][157][221]":GOTO590
482 PRINTD$"[207][221][157][157][166][179][157][221][157][157][190]":GOTO590
483 PRINTD$"[208][207][221][157][157][157] [146][166][179][157][157][157][205] [221][157][157][157] [190]":GOTO590
484 PRINTD$".[208][207][221][157][157][157][157][185] [146][166][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO590
485 PRINTD$" .[208][207][221][157][157][157][157][157][184][185] [146][166][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO590
486 PRINTD$"[223][146] .[208][207][221]"Z$"[184][184][185] [146][166][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO590
487 PRINTD$"[223][223][146] .[208][207][221]"Z$"[157] [184][184][185] [146][166][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO590
488 PRINTD$" [223][223][146] .[208][207][221]"Z$"[157][157] [184][184][185] [146][166][179][157][157][157][157][157] [205] [221][157][157][157][157] [190]":GOTO590
490 ONL-40GOTO500,510,520,530,540,550,560
500 PRINTD$TAB(33);" [223][223][146] .[208][207]"Z$" [184][184][185] [166][146][157][157][157] [205] [157][157] [190]":GOTO590
510 PRINTD$TAB(34);" [223][223][146] .[208][157][157][157][157][157] [184][184][185] [146][157][157] [205] [157][157] ":GOTO590
520 PRINTD$TAB(35);" [223][223][146] .[157][157][157][157] [184][184][185][146][157] ":GOTO590
530 PRINTD$TAB(36);" [223][223][146] [157][157][157] [184][184][146][157] ":GOTO590
540 PRINTD$TAB(37);" [223][223][146] [157][157][157] [184][146]":GOTO590
550 PRINTD$TAB(38);" [223][146] [157][157][157] [146]":GOTO590
560 PRINTD$TAB(39);" [157] "
590 GOTO800
600 FORL=1TO47
610 ONLGOTO640,650,660,670,680,690,700,710
620 IFL>40THEN720
630 PRINTD$TAB(40-L);"[221][208][207]. [169][146][169] "Z$"[157][157][171][166] [185][146][184][184] "Z$"[157][221] [206] [157][157][157][188] ":GOTO800
640 PRINTD$TAB(39)"[221][157][171][157][221]":GOTO800
650 PRINTD$TAB(38)"[221][208][157][157][171][166][157][157][221][188]":GOTO 800
660 PRINTD$TAB(37)"[221][208][207][157][157][157][171][166] [146][157][157][157][221] [206][157][157][188] ":GOTO800
670 PRINTD$TAB(36)"[221][208][207].[157][157][157][157][171][166] [185][146][157][157][157][157][221] [206] [157][157][157][188] ":GOTO800
680 PRINTD$TAB(35)"[221][208][207]. [157][157][157][157][157][171][166] [185][146][184][157][157][157][157][157][221] [206] [157][157][157][188] ":GOTO800
690 PRINTD$TAB(34)"[221][208][207]. [169][146]"Z$"[171][166] [185][146][184][184]"Z$"[221] [206] [157][157][157][188] ":GOTO800
700 PRINTD$TAB(33)"[221][208][207]. [169][146][169]"Z$"[157][171][166] [185][146][184][184] "Z$"[157][221] [206] [157][157][157][188] ":GOTO800
710 PRINTD$TAB(32);"[221][208][207]. [169][146][169] "Z$"[157][157][171][166] [185][146][184][184] "Z$"[157][221] [206] [157][157][157][188] ":GOTO800
720 ONL-40GOTO730,740,750,760,770,780,790
730 PRINTD$"[208][207]. [169][146][169] "Z$"[157][166] [185][146][184][184] "Z$" [206] [157][157][157][188] ":GOTO800
740 PRINTD$"[207]. [169][146][169] "Z$" [185][146][184][184] [157][157][157][157][157][206] [157][157] ":GOTO800
750 PRINTD$". [169][146][169] [157][157][157][157][157][185][146][184][184] [157][157][157][157] ":GOTO800
760 PRINTD$" [169][146][169] [157][157][157][157][184][184] ":GOTO800
770 PRINTD$"[169][146][169] [157][157][157][184] ":GOTO800
780 PRINTD$"[169] [157][157] ":GOTO800
790 PRINTD$" "
800 GETK$
805 IFK$<>"*"THEN1000
810 IFW2=1THEN1330
915 IFL<5ORL>31+(D*2)THEN1330
917 IFH=>1ANDL<Y+2THEN1000
918 H=H+1:SB(H)=0:IFH=5THEN8020
919 N=N+1
920 IFN=31THEN3000
930 IFE=41THEN950
935 V(H)=(1107+(D*80)-L):POKEV(H),42:GOTO960
950 V(H)=(1060+(D*80)+L):POKEV(H),42
960 Y=L
1000 IFH=0THEN1330
1010 FORB=1TOH
1020 IFSB(B)=1THEN1300
1050 I=V(B)-40:J=PEEK(I):M=V(B)+E:K=PEEK(M)
1070 IFK=32THEN1240
1080 IFK=102THEN1150
1090 IFK>176ANDK<186THEN1100
1092 GOSUB5100:GOTO1300
1100 F=F+(K-176)
1102 PRINT"";:FORP=1TO22:PRINT"";:NEXTP
1104 IFF<10THENPRINT"";F:GOTO1120
1108 IFF=>10ANDF<100THENPRINT"";F:GOTO1120
1112 IFF=>100ANDF<1000THENPRINT"";F
1120 BH(B)=1:POKEM,42:POKEV(B),32:GOTO1260
1150 IFBH(B)<>1THEN1180
1160 POKEV(B),32:SB(B)=1:GOTO1260
1180 ER=ER+1:POKE1937,57-ER:IFER=10THENGE=1
1210 SB(B)=1:IFER=10THENGE=1
1220 GOTO1260
1240 POKEM,42:POKEV(B),32
1260 V(B)=V(B)+E:IFV(B)<33007THEN1300
1270 POKEI+40,J:IFJ=32THEN1300
1290 I=I-40:J=PEEK(I):IFJ=42THEN1290
1295 GOTO1270
1300 NEXTB
1310 IFGE<>0THEN3000
1322 IFA<>3THEN1330
1330 IFA=2THENGOSUB5000
1335 NEXTL
1340 IF W2=1THENGOTO3330
1341 NEXTC
3000 GOSUB6000
3030 PRINT"";TAB(10);" FINAL STATS[146]"
3035 IFC=21THENPRINTF$"YOUR PLANE MADE ALL 20 OF ITS FLY-BYS.":GOTO3045
3040 PRINTF$"YOUR PLANE MADE"C"OUT OF 20 FLY-BYS."
3045 IFN=21THENPRINT"YOU DROPPED ALL OF YOUR 20 BOMBS.":GOTO3060
3050 PRINT"THE GAME ENDED WITH"N"OUT OF 20 BOMBS":PRINT"DROPPED."
3060 IFER=1THENPRINT"YOU HAD 1 MISS. (ONLY 3 ALLOWED)"
3062 IFER<>1THENPRINT"YOU HAD"ER"MISSES. (ONLY 3 ALLOWED)."
3070 PRINT"** YOUR FINAL SCORE WAS "F"[157] **"
3072 IFS2<FTHENS2=F
3074 IFP9>0THENPRINT"HIGH SCORE THIS SESSION="S2"[157]."
3080 PRINT"DO YOU WANT TO PLAY AGAIN?":POKEX,60
3090 GETZ$:IFZ$=""THEN3090
3100 IFZ$="N"THENGOTO3310
3200 IFZ$="Y"THEN3305
3300 PRINT"PLEASE ANSWER WITH A Y OR N.[145]":GOTO3090
3305 POKE59409,52:P9=P9+1:POKE2023,P9:POKE2022,S2
3308 CLR:P9=PEEK(2023):S2=PEEK(2022):GOTO200
3310 PRINT"[147]"F$" I HOPE YOU ENJOYED THE GAME!":ER=0:A=1:D=0:W2=1:H=0
3320 Z$="[157][157][157][157][157][157]":AB=0:D$="":GOTO600
3330 PRINT"[147]":POKEG,12:END
5000 Q=Q+1
5010 IFQ=10THENQ=1
5020 ONQGOTO5025,5030,5035,5040,5045,5050,5055,5060
5025 POKER,229:POKES,229:POKET,229:GOTO5070
5030 POKER,212:POKES,212:POKET,212:GOTO5070
5035 POKER,199:POKES,199:POKET,199:GOTO5070
5040 POKER,194:POKES,194:POKET,194:GOTO5070
5045 POKER,221:POKES,221:POKET,221:GOTO5070
5050 POKER,200:POKES,200:POKET,200:GOTO5070
5055 POKER,217:POKES,217:POKET,217:GOTO5070
5060 POKER,231:POKES,231:POKET,231:GOTO5070
5070 RETURN
5100 POKEV(B),32:SB(B)=1:POKEU,78:FORI=1TO750:NEXTI
5110 POKEU,32:POKEU-1,122:FORI=1TO750:NEXTI:P=160:K=0
5112 FORI=1TO2
5114 FORJ=UTOWSTEP-40
5116 IFK=1THEN5120
5118 IFPEEK(J)=32ORPEEK(J)=96ORPEEK(J)=160THEN5120
5119 K=1:W=J:P=32:GOTO5124
5120 POKE(J),P
5122 NEXTJ
5123 P=32
5124 NEXTI:IFK=1THEN5500
5170 POKEU-1,100:POKEU,78:FORI=1TO750:NEXTI:POKEU,100
5180 RETURN
5200 GOSUB5150
5500 FORI=1TO6
5505 IFE=39THEN5550
5540 PRINT""D$TAB(L-8);" "Z$"[157] [157][157][157][157] [157][157][157] "
5545 PRINT""D$TAB(L-8);" [146][223][223][146] .[208][207][221]"Z$"[157] [184][184][185] [166][146][179][157][157][157][157] [205] [221][157][157][157] [190]":GOTO5580
5550 PRINT""D$TAB(40-L);" "Z$"[157][157] "Z$"[157] [157][157][157] "
5555 PRINT""D$TAB(40-L);"[146][221][208][207]. [169][146][169] "Z$"[157][157][171][166] [185][146][184][184] "Z$"[157][221] [206] [157][157][157][188] "
5580 NEXTI
5585 PRINT""D$TAB(L-8);" "Z$"[157] [157][157][157][157] [157][157][157] "
5590 PRINT""D$TAB(40-L);" "Z$"[157][157] "Z$"[157] [157][157][157] "
5595 POKEU-1,100:POKEU,78:FORI=1TO750:NEXTI:POKEU,100
5600 FORI=1TO1500:NEXTI:GOTO3000
6000 POKEX,52:PRINT"[147][223][223][146] .[208][207][221]"Z$"[184][184][185] [146][166][179][157][157][157][157] [205] [221][157][157][157] [190]"
6060 PRINT""TAB(33);"[221][208][207]. [169][146][169]"Z$"[157][171][166] [185][146][184][184]"Z$"[221] [206] [157][157][157][188]":RETURN
7000 POKEX,52:PRINT"[147]"F$F$" WATCH OUT FOR THE DEATH BEAM! "
7002 PRINT""F$F$" DO NOT HIT THE SENSORS!!! "
7003 POKEX,60:FORI=1TO2000:NEXTI
7004 POKEX,52:POKE53281,0:PRINT"[147]"F$F$:POKE53281,7
7005 PRINT" 99[146]"B5$B5$" [166][145][157][166][145][157][166]";
7010 PRINT" "Y2$" 5[146] [164][164][164]"B5$"5[146][166]";
7020 PRINT" "Y2$"[166][166][166] 6[146] ^^9[146] [165][165][165][146] 9^^[146] 66[146][166]";
7030 PRINT" "Y2$"[166][166][166][166] 7[146][166][166][166][166] [146][166][166][166][166] 77[146][166]";
7040 PRINT" "Y2$Y2$" 8[146]"Y2$Y2$"[166][166] 888[146][166]";
7050 PRINT" 99[146]"Y2$Y2$"[166][166] 99[146]"Y2$Y2$"[166][166][166]9999[146][166]";
7499 GOTO300
8020 H=4:NB=NB-1:B=2:GOTO1000